﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='评论删除'><p>"

dim id
id=request.querystring("id")
if id="" or Isnumeric(id)=Flash then Call error("ID无效！")

Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select smsid from 74hu_pl where id="&id ,myconn,2,3
if rs.eof then
	w "ID无效！"
else
	smsid=rs("Smsid")
	rs.delete
	myconn.execute ("update 74hu_article set smspin=smspin-1 where id="&smsid)

	w "评论删除成功!"
end if
rs.close
set rs=nothing
%><br/>----------<br/><a href="adminpl.asp?sid=<%=sid%>">[评论管理]</a><%Call Last%>